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MAILUAF .COM = Modify SYSSSYSTEM:VMSMAIL.DAT 


ABSTRACT: Sample command procedure to modify 
SYSSSYSTEM: VMSMAIL.DAT 


This command procedure will prompt 
the user for a command. The valid 
commands are: 


Add a new user to SYSSSYSTEM:VMSMAIL.DAT 
Cancel mail forwarding for username 
fos from this procedure 

pe help message 
megity mail forwarding address for username 
Remove username from SYSSSYSTEM:VMSMAIL.DAT 
Display mail information about username 
List forwarding addresses for all users 


' 

i 

i 

‘ 

i 

i 

i 

i 

! 

i 

! 
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: ADD username 
; CANCEL username 
: EXIT 

HELP 

MODIFY username 
i 

' 

i 

' 

i 

i 

' 

i 

i 

i 

i 

' 


REMOVE username 
SHOW username 
LIST 


REQUIRED PRIVILEGES: 
BYPASS 


IMPLICIT OUTPUT: 
SYSSSYSTEM: VMSMAIL.DAT will be created if it does 
not exsist. 


if = **F°° 
inquire = ‘INQUIRE’ 
open = ‘OPEN’ 


exit = "EXIT" 

ask = ““inquire/nopunc tuat ion"’ 

prev_priv = creeteryt “SYSPRV'') 

Syenlt = ““SYSSSYSTEM: VMSMAIL.DAT’’ 

open /share=write /read /urite /error=no_file f1 ‘sysmai' 
a Os open 


aap pepe Pt eh nase Ae Strat he 


$no 

$ write sys$output sysmai, ** not found...creating new file’ 

$ create Breast s$input "Sysmai' ‘Create new VRSHRIL. DAT 
IDENT VAS Information data file 

FILE 


ALLOCATION 
BEST _TRY CONTIGUOUS es 
BUCKET. SIZE S 


— 
wn” 


Re 
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EXTENSION 


ee ae 
| 
CONT 1GuOUS n 
GLOBAL BUFFER COUNT 0 
C 
( 


ORCANIZAt ATION ~ 00% 86 
OWNER 001,004) 
PROTECTION system:RWE, owner:RWE, group:, world:) 
RECORD 
BLOCK_S yes 
CARRIKGE. NCONT ROL none 
FORM variable 
0 
AREA 0 
ALLOCATION 10 
BEST_TRY_CONTIGUOUS aes 
BUCKET stze 
CONT 1IGOOU no 
EXTENSION 10 
KEY 0 


CHANGES n 
DATA_KEY_COMPRESSION yes 


DATA_RECORD_COMPRESSION es 
DATA_AREA 

DATA-FIL 100 
DUPLICATES no 
INDEX_AREA 0 
INDEX COMPRESSION yes 
INDEX" FILL 00 
LEVELT_INDEX_AREA 0 
NULL_KEY no 
PRO tOCUE 3 
SEGO_LENGTH 31 
sE60 -POSITION x 


rin 
Ff onyhe- /share=read /read /write ‘i "Tapenat® 
: on Eontret _y then goto done 
. : Main oy. Get command and username then dispatch 
sé0.coss d 
$ ask ine. SF WAILUAF> . 
$ ak ~"Line 
$ if Line: ae me . then gots done 
$ti-= tElocarec: , 
$ command = Heceraital. 1, line) 
$ user = fSextract(ti+1,51,line) 
$ if f$locate(command,' WEL LP*") -eq. 0 then goto help. user 
$ if f$locate(command, ent, 3 -eq. 8 then goto done 
$ if f$locate(command,’ -eq. 0 then goto List_users 
$ if user et ‘then “goto syntaxerr 
$ fulluser(0,3i]:='user' 
$ if f$locate command, ‘ADD") 729. 0 then goto add_user 
$ if f$locate(command,’‘CANCEL"’) .eq. 0 then goto Cancel_user 


poet 
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$ if fSlocate(command,’'MODIFY'') .eq. 8 then goto modify_user 
$ if f$locate (command, REMOVE’) .eq then goto remove_user 
Ay tSlocate command,’ "SHOW'') .eq. 6 then goto show_user 
e\p_u 
$ type sys$input: 
ADD username Add a new user 
CANCEL username Cancel rorner ace for a user 
Sep mo 2 t fr noe MAIUA 
MODIFY username moni ty forwarding a for a user 
REMOVE username Remove a user completel y 
SHOW username Show MAIL information about user 
LIST List forwarding addresses for all users in VMSMAIL.DAT 


Big do. command 
$a 


$ read 7index=0 /err=add_10 /key=""""fulluser''’ f1 record 
$ write sys$output ‘User’ '’,user,’’ record already exists’ 
$0010; do_command 

si7= '"record'” 

if HSlengeeis! ne, 0 then $ delete/symbol record 
record(0O ="user 

record 8. 88)=0 

ask address a eerene address? “' 

tli = asses 

record[5 6,8) x 

record(68,'t1']:=‘address' 

write fl recor 

write sys$output ‘User 
goto do_command 
$cancel_uSer: 

$ read 7index=0 pereserecgrer thers nat fl record 
$ address = f$extract(68,255,record 

$ addr_length = f$cvui( (67*8,8, record) 

$ address := ‘address’ 

naddress = fSextract(0,addr_length,address) 

t2 = f$length(address) 

2 = *t2' = ‘addr_length' 

if sade clength ef. 0 0 then goto show_10 

write sys$output "User ‘',user,' *, forwarding address is 
ask yn “Cancel mail forwarding?” 

if .no 3f"5 the m goto do_command 

recorul5 


record(68 sib 8°0" (0,06 tote record) Length,255-addr_length,record)'"’ 
record = #Sextract (0 68+'t2', record 

write /update fl record 

to do_command 


‘,user,'' added” 


ritalin 3 rw 


-naddress 


open Pemarorwr 18, fread /write f1 ‘sysmai' 

write sys$outpu : A 
write sysSoutput ‘Username Forwarding address'’ 
Se. Mew ww~w~w~= 2 2—_ ESS ORR ee 
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$ read /end=do_comman e's record 

$ user = fSextra i ace ord) 

$ addr_length = f$cvu a 8,record) 

$ addréss = speasressy § record) 

$ address := 

$ address = fSextract(0,addr "ct ee» yet 

.= wise izeesyteu user,’ ddress 

$ goto do. _cOnmand 

$ read *7{ndex=0 erect (ob 035 ere ke ="""*fulluser'’’ f1 record 

$ address = sSentractt9 record 

$ addr_length = f$cvui( .6,record) 

$ naddress = tBextract (Ovedér. Length, address) 

$ t2 = f$length(address) 

$ if addr_length .ne. 0 then goto xx1 

$ write sysSoutput “User “’,user,'' does not have forwarding enabled" 


$ sete xx 


% rarite sys$output ‘Current forwarding address is ‘’,naddress 
ook naddress ‘New forwarding acereosy - 
f naddress .eqs. then goto do command 
address = fSextract(addr_length, t2-addr _length,address) 
tl = f$l parh(ned¢ress) 
record > pf ee 
record(68,2 **naddress'''address' 
record = Hectrestth 68+t1+t2,record) 
write /update fi record 
$ write sysSoutput ‘User ‘',user,'' modified"’ 
goto do_command 
uchuser: 
$ write sysSoutput ‘User 
$ goto do_command 
Sremove_user: . 
$ read 7index=0 Alc 5 ag 27 ppd “Pit megan fl record 
$ address = fSextract(68,255,recor 
$ addr_length = fsevus (oPs8, 5 record) 
$ address := ‘address’ 
$ if addr_length .eq. 0 then goto xx0 
$ address = fSextract(0,addr_length, address) 
$ write ogetoutput “User ‘',user,”, forwarding address is 
$ °° xx 


sad epee err he 
—e 


user,'’ record does not exist" 


address 


write sys$output ‘User ‘',user,'' does not have forwarding enabled" 


x 

ask yn ‘Remove? "’ 

if .mot. yn then goto do_command 

read ‘Sovconmand” Prutluser™ /delete f1 record 


$ 

$ a 7index=0 pore nreeeeynee a ' =""**fulluser’’’ f1 record 
; oderere = op Pontcoct (9 record 

$ 
7 


addr. $cyui $8 423° é record 
frm Roe! evi (66s g: y ree 
di ringetbevul (ese 


record) 


K 
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$ eesrese := ‘addre ons 
$ ays snane oe poets S trect (6Oeader Length, fnming, record) '"’ 
$pec fSextract(addr_Len tht fnming, dirlng, address) 
L t diring _— then goto fio_ 
$ write sys$output “User user,’ , "MAIL subdirectory is "’,dir_spec 


$ngea goto. test_ full_name 

Saris Ayetouteut “User “‘,user,’’ did not specify a MAIL subdirectory" 
est_ful 

$ if Frnming .eq. 0 then goto no_pers name 

$ write sys$Soutput “User ‘‘,user,, MAIL personal name is ‘', full_name 

$ z gece oe forward 


$ Kale Syssoutput "User ‘',user,'’ does not have a MAIL personal name. 
Scheck_forwa 
$ if addr_length .eq. 0 then goto show_10 
$ address = fSextract(0,addr_length, address) 
$ write sys$output ‘User ° ruler.” ” forwarding address is ‘',address 
spot ©, do_comman nd 
s 
. ortte sys$output "User " 
H goto do_command 
$syntaxerr: 
$ write sysS$output ‘Command syntax error’ 
goto do_command 


$done: 

$ close fi 

$ prev_priv = f$setprv(prev_priv) 
$ exit 


euser,’' does not have forwarding enabled" 
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